home *** CD-ROM | disk | FTP | other *** search
/ IRIX 6.2 Development Libraries / SGI IRIX 6.2 Development Libraries.iso / dist / complib.idb / usr / share / catman / p_man / cat3 / complib / scsum1.z / scsum1
Text File  |  1996-03-14  |  1KB  |  67 lines
  1.  
  2.  
  3.  
  4. SSSSCCCCSSSSUUUUMMMM1111((((3333FFFF))))                                                          SSSSCCCCSSSSUUUUMMMM1111((((3333FFFF))))
  5.  
  6.  
  7.  
  8. NNNNAAAAMMMMEEEE
  9.      SCSUM1 - take the sum of the absolute values of a complex vector and
  10.      returns a single precision result
  11.  
  12. SSSSYYYYNNNNOOOOPPPPSSSSIIIISSSS
  13.      REAL FUNCTION SCSUM1( N, CX, INCX )
  14.  
  15.          INTEGER   INCX, N
  16.  
  17.          COMPLEX   CX( * )
  18.  
  19. PPPPUUUURRRRPPPPOOOOSSSSEEEE
  20.      SCSUM1 takes the sum of the absolute values of a complex vector and
  21.      returns a single precision result.
  22.  
  23.      Based on SCASUM from the Level 1 BLAS.
  24.      The change is to use the 'genuine' absolute value.
  25.  
  26.      Contributed by Nick Higham for use with CLACON.
  27.  
  28.  
  29. AAAARRRRGGGGUUUUMMMMEEEENNNNTTTTSSSS
  30.      N       (input) INTEGER
  31.              The number of elements in the vector CX.
  32.  
  33.      CX      (input) COMPLEX array, dimension (N)
  34.              The vector whose elements will be summed.
  35.  
  36.      INCX    (input) INTEGER
  37.              The spacing between successive values of CX.  INCX > 0.
  38.  
  39.  
  40.  
  41.  
  42.  
  43.  
  44.  
  45.  
  46.  
  47.  
  48.  
  49.  
  50.  
  51.  
  52.  
  53.  
  54.  
  55.  
  56.  
  57.  
  58.  
  59.  
  60.  
  61.  
  62.  
  63.                                                                         PPPPaaaaggggeeee 1111
  64.  
  65.  
  66.  
  67.